home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pas_all.zip
/
TI332.ASC
< prev
next >
Wrap
Text File
|
1992-08-12
|
3KB
|
199 lines
PRODUCT : TURBO TUTOR NUMBER : 332
VERSION : 2.00
OS : PC-DOS
DATE : August 25, 1986 PAGE : 1/3
TITLE : WINDOWS UPDATET
The following modifications prevent the possible locking of your
system when the WINDOWS example is run on a monochrome system.
1. Make a backup of the file TUTOR.LIB.
2. Load the file TUTOR.LIB into the Turbo Pascal editor.
3. In the procedure MoveToScreen:
Change the line:
.
.
.
Len := Len shr 1;
.
.
.
Change to:
.
.
.
if VideoMode = MonoMode then
Move(Source, Dest, Len)
else begin
Len := Len shr 1;
.
.
.
4. Change the line:
.
.
.
end; { MoveToScreen }
.
.
.
Change to:
.
.
.
PRODUCT : TURBO TUTOR NUMBER : 332
VERSION : 2.00
OS : PC-DOS
DATE : August 25, 1986 PAGE : 2/3
TITLE : WINDOWS UPDATE
end;
end; { MoveToScreen }
.
.
.
5. In the procedure MoveFromScreen:
Change the line:
.
.
.
Len := Len shr 1;
.
.
.
Change to:
.
.
.
if VideoMode = MonoMode then
Move(Source, Dest, Len)
else begin
Len := Len shr 1;
.
.
.
6. Change the line:
.
.
.
end; { MoveFromScreen }
.
.
.
Change to:
.
.
.
end;
PRODUCT : TURBO TUTOR NUMBER : 332
VERSION : 2.00
OS : PC-DOS
DATE : August 25, 1986 PAGE : 3/3
TITLE : WINDOWS UPDATE
end; { MoveFromScreen }
.
.
.
7. At the top of the file, update the version number from 2.0
to 2.00A.
8. Save the file TUTOR.LIB.
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.